home *** CD-ROM | disk | FTP | other *** search
/ Developer Source 4 / developer source - volume 4.iso / parad / dec94 / sr_figb.gif < prev    next >
Graphics Interchange Format  |  1995-09-26  |  30KB  |  800x600  |  4-bit (14 colors)
Labels: text | screenshot | software | display | computer icon | multimedia software | operating system | web page | graphics software | website | editing | office application software | number
OCR: Delphi - Chkpword File Edit Search View Run Debug Options Tools Help -- A abÏ OK A Standard Additional /Graphics /Dialogs /File /Database _DB Lists AVBX Object Inspector DLLFORM.PAS PasswordForm ActiveControl Edit 1 function GetPassword (Password: PChar) : Inter +Borderlcons [biSystemMenu,b var BorderStyle bsSizeable PasswordForm: TPasswordForm; Caption Verify strPassword: String ; ClientHeight 109 begin Clientwidth 238 Color clSilver Verify Result := 0; PasswordForm := TPasswordForm. Create (Appl CH3D True Curso crDefault :Enter password: { Test string passed } Enabled True . .......... strPassword := StrPas (Password) ; +Font [TFont) try FormStyle fsNormal with PasswordForm do Heigh 136 OK X Cancel if ShowModal = mrOK then HelpContext if UpperCase (Edit1. Text) <> UpperCas Hin MessageDlg (' Invalid Password', mtl +HorzScrollBar [T ControlS crollBa Icor (Tlcon) else KeyPreview False Result := 1; Left 158 finally Menu PasswordForm. Free; Name PasswordForm end; ObjectMenulter end; Properties &Events begin RegisterClasses ( [ TPasswordForm, TLabel, T+ 1: 1 Insert Chkpword Program \Dllform Manager